home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Action Arcade 1997
/
Action Arcade 1997.iso
/
ps
/
unit1.dfm
/
unit1.txt
< prev
Wrap
Text File
|
1996-12-17
|
8KB
|
402 lines
object Form1: TForm1
Left = 45
Top = 19
BorderIcons = []
BorderStyle = bsNone
Caption = 'Form1'
ClientHeight = 400
ClientWidth = 585
Color = clWhite
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 585
Height = 400
Align = alClient
BevelOuter = bvLowered
BevelWidth = 2
BorderStyle = bsSingle
Color = clWhite
TabOrder = 0
object Image2: TImage
Left = 480
Top = 176
Width = 92
Height = 91
Picture.Data = {<image000.bmp>}
end
object Image1: TImage
Left = 480
Top = 176
Width = 93
Height = 91
AutoSize = True
Picture.Data = {<image001.bmp>}
OnMouseDown = Image1MouseDown
OnMouseUp = Image1MouseUp
end
object RCD: TImage
Left = 480
Top = 72
Width = 89
Height = 87
AutoSize = True
Picture.Data = {<image002.bmp>}
end
object Image3: TImage
Left = 480
Top = 71
Width = 90
Height = 88
AutoSize = True
Picture.Data = {<image003.bmp>}
OnMouseDown = Image3MouseDown
OnMouseUp = Image3MouseUp
end
object Image4: TImage
Left = 496
Top = 304
Width = 68
Height = 67
AutoSize = True
Picture.Data = {<image004.bmp>}
OnClick = Image4Click
end
object Label1: TLabel
Left = 16
Top = 8
Width = 303
Height = 29
Caption = 'ACTION ARCADE " 1997 "'
Font.Color = clWhite
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 14
Top = 9
Width = 303
Height = 29
Caption = 'ACTION ARCADE " 1997 "'
Font.Color = clGray
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 15
Top = 8
Width = 303
Height = 29
Caption = 'ACTION ARCADE " 1997 "'
Font.Color = clRed
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object ben: TGauge
Left = 72
Top = 400
Width = 401
Height = 17
Progress = 0
Visible = False
end
object ScrollBox1: TScrollBox
Left = 8
Top = 40
Width = 465
Height = 353
TabOrder = 0
object Image5: TImage
Left = 0
Top = 0
Width = 460
Height = 348
AutoSize = True
Picture.Data = {<image005.bmp>}
end
object Label4: TLabel
Left = 344
Top = 312
Width = 108
Height = 31
Caption = 'PSM Inc.'
Font.Color = clSilver
Font.Height = -27
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label5: TLabel
Left = 342
Top = 314
Width = 108
Height = 31
Caption = 'PSM Inc.'
Font.Color = clBlack
Font.Height = -27
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label6: TLabel
Left = 343
Top = 312
Width = 108
Height = 31
Caption = 'PSM Inc.'
Font.Color = clYellow
Font.Height = -27
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object flb1: TFileListBox
Left = 48
Top = 144
Width = 145
Height = 97
ItemHeight = 13
Mask = '*.bmp'
TabOrder = 0
Visible = False
end
object flb2: TFileListBox
Left = 208
Top = 136
Width = 145
Height = 97
ItemHeight = 13
Mask = '*.com;*.exe;*.bat'
TabOrder = 1
Visible = False
end
object flb3: TFileListBox
Left = 104
Top = 24
Width = 145
Height = 97
ItemHeight = 13
TabOrder = 2
Visible = False
end
end
object dr: TComboBox
Left = 16
Top = 397
Width = 49
Height = 21
ItemHeight = 13
Items.Strings = (
'c:'
'd:'
'e:'
'f:'
'g:'
'h:'
'i:'
'j:'
'k:'
'l:'
'm:'
'n:'
'o:'
'p:'
'q:'
'r:'
's:'
't:'
'u:'
'v:'
'x:'
'w:'
'y:'
'z:')
TabOrder = 1
Text = 'c:'
Visible = False
end
object BitBtn1: TBitBtn
Left = 488
Top = 395
Width = 75
Height = 25
Caption = 'Go'
TabOrder = 2
OnClick = BitBtn1Click
Kind = bkIgnore
end
end
object ComboBox1: TComboBox
Left = 344
Top = 16
Width = 185
Height = 21
ItemHeight = 13
Items.Strings = (
'3D-CHESS'
'3D-MANIA'
'ALIENSAT'
'ANTRUN'
'APOCALYP'
'ARCY'
'ASTROFIR'
'BANANOID'
'BATLCHES'
'BATLSHIP'
'BIO-MEN'
'BLOCKMAN'
'BLOCKOUT'
'BOGGLED'
'BOLOBALL'
'BRAINSTM'
'BREAKFRE'
'BREAKIN'
'BRIX'
'CHECKERS'
'CHINESE'
'CHOMPER'
'CLYDE'
'COLGATE'
'COMKEEN1'
'COMKEEN4'
'CONNECT'
'CONNEX'
'CORRIDOR'
'CRAZY-8'
'CUBULUS'
'CYBERDOG'
'DARNIT'
'DEADLINE'
'DEFCON'
'DEFENDER'
'DIAMOND'
'DONKEY'
'DOOM'
'DOUBLE'
'DSCHUMP'
'DUKE1'
'DUKE2'
'DUKE3D'
'ELECTRAN'
'ELECTROB'
'EVASIVE'
'EXTREME'
'FORZEE'
'GALACTIX'
'GALAXIAN'
'GATEWRLD'
'GEMSTONE'
'GOBMAN'
'GOD-OF'
'GRIDLY'
'HELIOUS'
'HERETIC'
'HERO'
'HEXIPUZZ'
'HEXXAGON'
'IN-PURS'
'JAZZJACK'
'JAZZXMAS'
'JETPACK'
'JILL'
'KEENDREA'
'KENS'
'LASER'
'LASTEICH'
'LIONKING'
'LOSTCITY'
'MAHJONGG'
'MAJ-VGA'
'MARBLE'
'MARIO'
'MEGAPEDE'
'MICEMEN'
'MINES'
'MSPACMAN'
'MUTANT'
'NOTRUS'
'OILCAP'
'ORIGAMO'
'OVERKILL'
'OXYD'
'PACO-1'
'PACO-2'
'PAGAN'
'PLASMA'
'POD'
'POWERPUZ'
'PRISONER'
'PROJ-X'
'QUATRIS'
'RAPTOR'
'RESCUE'
'RINGS'
'RODGE'
'ROLLIN'
'ROTAKTIX'
'SCORCH'
'SECRET'
'SLORDAX'
'SOLAR'
'SOLITAIR'
'SOLSUITE'
'SPEAR'
'SQUAREX'
'SQUAREZ'
'STARGUN'
'STARMINE'
'SUPAPLEX'
'SUPERKAR'
'SWITCH'
'TOWERS'
'TRIBUTE'
'TROLLS'
'TUBWORLD'
'TUNNEL'
'TWINBLOK'
'ULTIMATE'
'VIDPOKER'
'VINYL'
'VIRTUAL'
'WACKY'
'WOLF-3D'
'WORDBIRD'
'XATAX'
'XQUEST'
'YATZ'
'ZENTRIS'
'ZONG')
TabOrder = 1
Text = 'Select you game here ...'
OnChange = ComboBox1Change
end
object DdeClient: TDdeClientConv
DdeService = 'progman'
Left = 300
Top = 100
LinkInfo = (
'Service progman'
'Topic ')
end
end